﻿''' <summary>Generic web page schema</summary>
Public Class WebPage
    Inherits File


    Public Sub New(ByVal content As String, ByVal format As IndexFormats, ByVal uri As String, ByVal last_modified_time As Date)
        MyBase.New(content, format, uri, last_modified_time)

    End Sub

    ''' <summary>Specifies if this web page is bookmarked </summary>
    Private _bookmarked As Boolean
    ''' <summary>Specifies the amount of time the user interacted with the web page </summary>
    Private _interaction_period As Date



    ''' <summary>Specifies if this web page is bookmarked </summary>
    Public Property Bookmarked() As Boolean
        Get
            Return _bookmarked
        End Get
        Set(ByVal value As Boolean)
            _bookmarked = value
            SetOtherPropertiesFlag()
        End Set
    End Property
    ''' <summary>Specifies the amount of time the user interacted with the web page </summary>
    Public Property Interaction_period() As Date
        Get
            Return _interaction_period
        End Get
        Set(ByVal value As Date)
            _interaction_period = value
            SetOtherPropertiesFlag()
        End Set
    End Property


    'Protected Overrides Sub AddRequredProperties(ByVal e As [Event])
    '    MyBase.AddRequredProperties(e)


    'End Sub

    Protected Overrides Sub AddOtherProperties(ByVal e As [Event])
        MyBase.AddOtherProperties(e)


        e.AddProperty("bookmarked", Me._bookmarked)
        e.AddProperty("interaction_period", Me._interaction_period.ToOADate)

    End Sub



   


End Class